home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Design
/
WB Collection.iso
/
workbench werkzeuge
/
commoditys
/
magiccx
/
rexx
/
pasrevision.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-04-07
|
853b
|
38 lines
/*
$VER: PASRevision.rexx 1.0 (12.8.94)
Revises an Pascal/Modula source code
The default Port of MagicCX is assumed to be MCX.
This script was written for Shell usage.
Written by : Kai Iske
Brucknerstrasse 18
63452 Hanau
GERMANY
Tel.: +49-(0)6181-850181
THIS SCRIPT IS PUBLIC DOMAIN
*/
/*
Standard defines for INITIALVER INITIALREV INSERTBEFORE AND INSERTAFTER
(Please add complete paths for the files!)
*/
INITVER = 1
INITREV = 0
INSBEFORE = PASInsertBeforeHeader
INSAFTER = PASInsertAfterHeader
QUOTE = '22'X
OPTIONS RESULTS
ADDRESS 'MCX' REVISE 'FILE='QUOTE''Arg(1)''QUOTE 'MODE=PAS' 'INITIALVER='INITVER 'INITIALREV='INITREV 'INSERTBEFORE='INSBEFORE 'INSERTAFTER='INSAFTER
RevDone = RESULT
IF RevDone = 'TRUE' THEN
say 'No errors occured... Sourced revised.'
ELSE
say 'Error occured during revision...'
EXIT